home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 83 / 083.d81 / number logic (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  10KB  |  284 lines
  1. 1 poke55,0:poke56,128:clr:dv=peek(186):ifdv<8thendv=8
  2. 2 poke53281,0:poke53280,0:printchr$(147)chr$(14)chr$(8);
  3. 5 poke53272,29
  4. 6 dim m$(9),r$(4):f=0:ff=0:s=54272:gosub9900:o$=chr$(8):f$=chr$(15)
  5. 10 fori=1to8:readm$(i):next
  6. 11 data "[208]rint [208]uzzle (1525)   "
  7. 12 data "[208]rint [208]uzzle (other)  "
  8. 13 data "[208]rint [211]olution (1525) "
  9. 14 data "[208]rint [211]olution (other)"
  10. 15 data "[210]ead [201]t               "
  11. 16 data "[200]int                  "
  12. 17 data "[195]redits               "
  13. 18 data "[204]oadstar              "
  14. 20 tp$="[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  15. 22 md$="[221][155]                                      [146][221]"
  16. 23 ln$="[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
  17. 24 bt$="[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  18. 25 goto30
  19. 26 print"[147]"tp$;
  20. 27 fori=1to23:printmd$;:next:printbt$:poke2023,125:poke56295,1
  21. 28 fori=217to242:pokei,peek(i)or128:next:return
  22. 30 gosub26
  23. 32 print"[221][156]             [206]umber [204]ogic             [146][221]";
  24. 34 println$;
  25. 60 poke214,21:print
  26. 65 println$;
  27. 70 print"[221][154]   [213]se cursor keys/[210][197][212][213][210][206] to select   [146][221]";
  28. 80 gosub28
  29. 100 print"";
  30. 102 printtab(7)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  31. 104 qq$="[221]                        [221]"
  32. 105 fori=1to10:print""qq$:next
  33. 106 printtab(7)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  34. 107 poke214,5:print
  35. 109 fori=1to8:printtab(9)""m$(i):next
  36. 145 sys52496,1
  37. 146 poke198,0
  38. 150 r=5:m=1:poke214,r:print:printtab(9)"[154]"m$(m):m1=m:r1=r
  39. 155 getk$:ifk$=""then155
  40. 160 ifk$=chr$(13)thengosub9930:goto200
  41. 165 ifk$="[145]"thenm=m-1:r=r-1:ifm<1thenm=8:r=12
  42. 170 ifk$=""thenm=m+1:r=r+1:ifm>8thenm=1:r=5
  43. 175 ifm<>m1thenpoke214,r1:print:printtab(9)""m$(m1):gosub9910
  44. 180 poke214,r:print:printtab(9)"[154]"m$(m)
  45. 182 m1=m:r1=r
  46. 185 goto155
  47. 190 :
  48. 200 onmgoto1000,2000,3000,4000,12000,700,500,11000
  49. 205 goto150
  50. 500 sys52496,2
  51. 525 poke214,16:print:printtab(7)"[159][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  52. 527 printtab(7)"[221]  [208]uzzle [194]y [194]. [211]chulak  [221]"
  53. 535 printtab(7)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  54. 544 t=1
  55. 545 getk$:ifk$<>""then550
  56. 546 t=t+1:ift<100then545
  57. 550 sys52499,2:gosub28:goto155
  58. 555 :
  59. 700 sys52496,2
  60. 725 poke214,16:print:printtab(3)"[156][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  61. 727 printtab(3)"[221] [212]he first number across is 256 [221]"
  62. 735 printtab(3)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  63. 744 t=1
  64. 745 getk$:ifk$<>""then550
  65. 746 t=t+1:ift<100then545
  66. 750 sys52499,2:gosub28:goto155
  67. 755 :
  68. 1000 gosub9000:ifppthen155
  69. 1002 gosub6000
  70. 1005 open4,4
  71. 1010 print#4,f$"     [176][192][192][178][192][192][178][192][192][178][192][192][178][192][192][178][192][192][178][192][192][178][192][192][178][192][192][174]";o$
  72. 1020 print#4,f$"     [221] 1[221]  [221] 2[221][166][166][221] 3[221][166][166][221] 4[221]  [221] 5[221]";o$
  73. 1022 print#4,f$"     [221]  [221]  [221]  [221][166][166][221]  [221][166][166][221]  [221]  [221]  [221]";o$
  74. 1025 print#4,f$"     [171][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][179]";o$
  75. 1030 print#4,f$"     [221]  [221][166][166][221] 6[221] 7[221]  [221] 8[221]  [221][166][166][221]  [221]";o$
  76. 1032 print#4,f$"     [221]  [221][166][166][221]  [221]  [221]  [221]  [221]  [221][166][166][221]  [221]";o$
  77. 1035 print#4,f$"     [171][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][179]";o$
  78. 1040 print#4,f$"     [221] 9[221]10[221][166][166][221]11[221]  [221]  [221][166][166][221]12[221]  [221]";o$
  79. 1042 print#4,f$"     [221]  [221]  [221][166][166][221]  [221]  [221]  [221][166][166][221]  [221]  [221]";o$
  80. 1045 print#4,f$"     [171][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][179]";o$
  81. 1050 print#4,f$"     [221][166][166][221]13[221]14[221][166][166][221]  [221][166][166][221]15[221]  [221][166][166][221]";o$
  82. 1052 print#4,f$"     [221][166][166][221]  [221]  [221][166][166][221]  [221][166][166][221]  [221]  [221][166][166][221]";o$
  83. 1055 print#4,f$"     [171][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][179]";o$
  84. 1060 print#4,f$"     [221]16[221]  [221]  [221]  [221][166][166][221]17[221]  [221]  [221]  [221]";o$
  85. 1062 print#4,f$"     [221]  [221]  [221]  [221]  [221][166][166][221]  [221]  [221]  [221]  [221]";o$
  86. 1065 print#4,f$"     [171][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][179]";o$
  87. 1070 print#4,f$"     [221][166][166][221]18[221]  [221][166][166][221]19[221][166][166][221]20[221]  [221][166][166][221]";o$
  88. 1072 print#4,f$"     [221][166][166][221]  [221]  [221][166][166][221]  [221][166][166][221]  [221]  [221][166][166][221]";o$
  89. 1075 print#4,f$"     [171][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][179]";o$
  90. 1080 print#4,f$"     [221]21[221]  [221][166][166][221]22[221]  [221]23[221][166][166][221]24[221]25[221]";o$
  91. 1082 print#4,f$"     [221]  [221]  [221][166][166][221]  [221]  [221]  [221][166][166][221]  [221]  [221]";o$
  92. 1085 print#4,f$"     [171][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][179]";o$
  93. 1090 print#4,f$"     [221]  [221][166][166][221]26[221]  [221]  [221]  [221]27[221][166][166][221]  [221]";o$
  94. 1092 print#4,f$"     [221]  [221][166][166][221]  [221]  [221]  [221]  [221]  [221][166][166][221]  [221]";o$
  95. 1095 print#4,f$"     [171][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][179]";o$
  96. 1100 print#4,f$"     [221]28[221]  [221]  [221][166][166][221]  [221][166][166][221]29[221]  [221]  [221]";o$
  97. 1102 print#4,f$"     [221]  [221]  [221]  [221][166][166][221]  [221][166][166][221]  [221]  [221]  [221]";o$
  98. 1105 print#4,f$"     [173][192][192][177][192][192][177][192][192][177][192][192][177][192][192][177][192][192][177][192][192][177][192][192][177][192][192][189]"
  99. 1110 print#4:close4:gosub5000:goto155
  100. 1115 :
  101. 2000 gosub9000:ifppthen155
  102. 2002 gosub6000
  103. 2005 open4,4
  104. 2010 print#4,"      -- -- -- -- -- -- -- -- -- "
  105. 2020 print#4,"     : 1:  : 2:xx: 3:xx: 4:  : 5:"
  106. 2022 print#4,"     :  :  :  :xx:  :xx:  :  :  :"
  107. 2025 print#4,"      --+--+--+--+--+--+--+--+-- "
  108. 2030 print#4,"     :  :xx: 6: 7:  : 8:  :xx:  :"
  109. 2032 print#4,"     :  :xx:  :  :  :  :  :xx:  :"
  110. 2035 print#4,"      --+--+--+--+--+--+--+--+-- "
  111. 2040 print#4,"     : 9:10:xx:11:  :  :xx:12:  :"
  112. 2042 print#4,"     :  :  :xx:  :  :  :xx:  :  :"
  113. 2045 print#4,"      --+--+--+--+--+--+--+--+-- "
  114. 2050 print#4,"     :xx:13:14:xx:  :xx:15:  :xx:"
  115. 2052 print#4,"     :xx:  :  :xx:  :xx:  :  :xx:"
  116. 2055 print#4,"      --+--+--+--+--+--+--+--+-- "
  117. 2060 print#4,"     :16:  :  :  :xx:17:  :  :  :"
  118. 2062 print#4,"     :  :  :  :  :xx:  :  :  :